<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 
<%
Response.Expires = 0 

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images") & "\24.jpg"
%>

<img src="images/24.jpg"><br>

<%
Response.Write Path 
Jpeg.Open Path 

Jpeg.Open Path
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

Jpeg.Save Server.MapPath("images") & "\24new.jpg"

%>
<br>
<IMG SRC="images/24new.jpg">  